home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 39 / CD-ROM 39 / CD-ROM 39.iso / lazer / fpwtdemo / Option.dcr / Internal_56_Quit.ls < prev    next >
Encoding:
Text File  |  1998-02-10  |  101 b   |  8 lines
  1. global gnSoundVolume
  2.  
  3. on mouseUp
  4.   set the soundLevel to gnSoundVolume
  5.   PitchProduct()
  6.   halt()
  7. end
  8.